/* GUI CONVERTED from rechiq.p (converter v1.75) Sat Aug 12 23:04:59 2000 */
/* rechiq.p - PRODUCTION LINE CHANGE-OVER INQUIRY                       */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* web convert rechiq.p (converter v1.00) Fri Mar 06 13:25:17 1998 */
/* web tag in rechiq.p (converter v1.00) Fri Mar 06 13:25:06 1998 */
/*F0PN*/ /*K1KK*/ /*                                                    */
/*V8:ConvertMode=Report                                        */
/* REVISION: 7.0     LAST MODIFIED: 02/25/92             BY: SMM *F230*/
/* REVISION: 7.0     LAST MODIFIED: 03/29/92             BY: emb *F331*/
/* Revision: 7.3        Last edit: 11/19/92             By: jcd *G339* */
/* Revision: 7.3        Last edit: 04/28/93             By: qzl *GA53* */
/* REVISION: 8.6E      LAST MODIFIED: 02/23/98   BY: *L007* A. Rahane */
/* REVISION: 8.6E      LAST MODIFIED: 03/06/98   BY: *K1KK* Beena Mol   */
/* REVISION: 8.6E      LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan   */
/* REVISION: 8.6E      LAST MODIFIED: 06/03/98   BY: *K1RW* A.Shobha     */
/* REVISION: 9.1       LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane */
/* REVISION: 9.1       LAST MODIFIED: 08/12/00   BY: *N0KP* myb              */


/*GUI preprocessor directive settings */
&SCOPED-DEFINE PP_GUI_CONVERT_MODE REPORT

/*K1KK*/ {mfdtitle.i "b+ "}

/* ********** Begin Translatable Strings Definitions ********* */

&SCOPED-DEFINE rechiq_p_1 "Production Line"
/* MaxLen: Comment: */

&SCOPED-DEFINE rechiq_p_2 "Hours"
/* MaxLen: Comment: */

&SCOPED-DEFINE rechiq_p_3 "From Item Number"
/* MaxLen: Comment: */

&SCOPED-DEFINE rechiq_p_4 "To Item Number"
/* MaxLen: Comment: */

/* ********** End Translatable Strings Definitions ********* */

    define variable line like chg_line column-label {&rechiq_p_1}.
    define variable site like chg_site.
    define variable part like pt_part.

/*K1KK* /*GA53*/ {mfdtitle.i "b+ "} */

    site = global_site.
/*GA53*/part = global_part.
                                  /*GA53*/

    
/*GUI preprocessor Frame A define */
&SCOPED-DEFINE PP_FRAME_NAME A

FORM /*GUI*/ 
    line space(10)
    site
    part
    with frame a no-underline width 80 attr-space THREE-D /*GUI*/.

/*GUI preprocessor Frame A undefine */
&UNDEFINE PP_FRAME_NAME



    /* SET EXTERNAL LABELS */
    setFrameLabels(frame a:handle).

/*K1KK*/ {wbrp01.i}

    repeat:

/*K1KK*/ if c-application-mode <> 'web' then
      update line site part with frame a editing:

        if frame-field = "line" then do:
     /* FIND/NEXT PREVIOUS */
     {mfnp.i ln_mstr line ln_line line ln_line ln_line}
     if recno <> ? then do:
        display ln_line @ line ln_site @ site with frame a.
        end.
        recno = ?.
    end.
        else if frame-field = "site" then do:
     /* FIND/NEXT PREVIOUS */
     {mfnp.i si_mstr site si_site site si_site si_site}
     if recno <> ? then do:
        display si_site @ site with frame a.
        end.
        recno = ?.
    end.
        else if frame-field = "part" then do:
        /* FIND/NEXT PREVIOUS */
        {mfnp.i pt_mstr part pt_part part pt_part pt_part}
        if recno <> ? then do:
        display pt_part @ part with frame a.
     end.
      end.
      else do:
         readkey.
        apply lastkey.
      end.
        end.   /* editing */

/*K1KK*/ {wbrp06.i &command = update &fields = "  line site part" &frm = "a"}

/*K1KK*/ if (c-application-mode <> 'web') or
/*K1KK*/ (c-application-mode = 'web' and
/*K1KK*/ (c-web-request begins 'data')) then do:

    hide frame b.

/*K1KK*/ end.

    {mfselprt.i "terminal" 80}

    for each chg_mstr no-lock where chg_line >= line
    and (chg_site = site or site = "")
    and (chg_from >= part or chg_to >= part)
    with frame b width 80 no-attr-space:
                /* SET EXTERNAL LABELS */
                setFrameLabels(frame b:handle).
                
/*GUI*/ {mfguichk.i } /*Replace mfrpchk*/
                     /*G339*/

    display chg_line  column-label {&rechiq_p_1}
          chg_site
          chg_from  column-label {&rechiq_p_3}
          chg_to    column-label {&rechiq_p_4}
          chg_time  column-label {&rechiq_p_2}
    with frame b STREAM-IO /*GUI*/ .
    end.

    {mfreset.i}
/*GUI*/ {mfgrptrm.i} /*Report-to-Window*/

    {mfmsg.i 8 1}
    end. /* repeat */

        if site <> "" then global_site = site.
/*GA53*/    if part <> "" then global_part = part.

/*K1KK*/ {wbrp04.i &frame-spec = a}
